home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / FLAP.SDA / FLAP INST (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.6 KB  |  130 lines
  1. 0 : : : : : : : (null) TO 8 : : : : : : : :   : : : : : : : : : : : : : : : : : : :
  2. 1 : :                               : :
  3. 2 : :  GRAPHIC TITLE BY- JIM GREEN  : :
  4. 3 : :                               : :
  5. 4 : : : : : : : : : : : : : : : : : : :   : : : : : : : : : : : : : : : : : : :.
  6. 8 GOSUB420
  7. 10 PRINT"[147][152]";:POKE53281,15:POKE53280,15
  8. 12 FORI=1TO23:READA$:IFA$="[157]"THENGOSUB16:GOTO 22
  9. 14 PRINTA$:NEXT:GOSUB16:GOTO12
  10. 16 PRINTSPC(6)" [154] [208]RESS <[211][208][193][195][197]> TO CONTINUE [145][146][152]"
  11. 18 GETB$:IFB$=""THEN18
  12. 20 PRINT"[147]";:RETURN
  13. 22 PRINT"[147]     [208]RESS <[209]> TO [209][213][201][212]
  14. 24 [153]"     (null)RESS <(null)> TO (null)VAL(null)RIGHT$VAL(null)
  15. 26 PRINT"     [208]RESS <[204]> TO LOAD [198][204][193][208]
  16. 28 [161]K$:[139]K$[179][177]"R"[175]K$[179][177]"L"[175]K$[179][177]"Q"[167] 28
  17. 30 [139]K$[178]"R"[167][138]
  18. 32 [139]K$[178]"Q"[167][153]"      (null)INK - (null)ONK - (null)HUNK":[141]800:[128]
  19. 33 [153]"LOADLOAD"[199](34)"FLAP LDR"[199](34)",8":[153]"RUN";
  20. 34 [151]631,13:[151]632,13:[151]198,2:[128]
  21. 35 [131] 32,253,174,32,138,173,32,247,183
  22. 36 [131] 152,72,32,253,174,32,138,173,32
  23. 37 [131] 247,183,152,170,104,168,24,32,240,255,96
  24. 38 [131]"     ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  25. 40 DATA"     [221]                            [221]
  26. 42 [131]"     (null)  DEF FN WAITUSRUSRFN  WAIT     WAITUSRUSRFN  WAITUSRUSRFN   WAIT  (null)"
  27. 44 [131]"     (null)  DEF FN WAITAND    WAIT     WAITANDANDFN  WAITANDANDFN   WAIT  (null)"
  28. 46 [131]"     (null)  DEF FN WAIT     WAITANDANDFN  WAIT  FN  WAIT    USRUSRWAIT  (null)"
  29. 48 [131]"     (null)                            (null)
  30. 50 DATA"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  31. 52 [131]"
  32. 54 DATA"[152][217]OU ARE AMOUNG THE LAST SURVIVORS OF
  33. 56 [131]"THE ELITE ASC(null)ATN(null) LEAGUE. (null)HE STRANGE 
  34. 58 DATA"EFFECT OF COSMIC RAYS UPON THE PLANET 
  35. 60 [131]"ATNRION IN CENTURIES PAST HAVE 
  36. 62 DATA"PERMANENTLY ALTERED THE STATE OF THE 
  37. 64 [131]"POPULACE. (null)ANY OF YOUR RACE HAVE 
  38. 66 DATA"TRANSFORMED INTO MINDLESS, EVIL DRONES 
  39. 68 [131]"WHOSE ONLY INTENTION IS THE ELIMINATION
  40. 70 DATA"OF THE FEW REMAINING MEMBERS OF THE 
  41. 72 [131]"ASC(null)ATN(null) LEAGUE.
  42. 74 DATA"
  43. 76 [131]" ATNS YOU MAY HAVE GUESSED, YOU MUST NOT 
  44. 78 DATA"LET THIS HAPPEN. [201]T IS YOUR SKILL IN 
  45. 80 [131]"FLIGHT THAT WILL ENABLE YOU TO DESTROY 
  46. 82 DATA"THE ENEMY DRONES. [198][204][193][208] SCIENTIST HAVE 
  47. 84 [131]"DETERMINED THAT THE DRONES' VULNERABI-
  48. 86 DATA"LITY LIES IN THE UPPER PART OF THEIR 
  49. 88 [131]"BODIES (THEIR ATNCHILLE'S LEFT$EEL, SO TO 
  50. 90 DATA"SPEAK). [211]O TO WIN IN BATTLE YOU MUST 
  51. 92 [131]"STRIKE THEM FROM ABOVE. (null)NFORTUNATELY, 
  52. 94 DATA"YOU TOO CAN FALL PREY TO THIS SAME 
  53. 96 [131]"WEAKNESS, AND LOSE A BIRD SHOULD THIS 
  54. 98 DATA"HAPPEN TO YOU. [212]O MAKE MATTERS WORSE, 
  55. 100 [131]"IN ORDER TO SUSTAIN LIFE ON THIS 
  56. 102 DATA"INHOSPITABLE PLANET, IT IS NECESSARY 
  57. 104 [131]"THAT YOU LAND ON THE FLASHING 'TARGS' 
  58. 106 DATA"FOR ESSENTIAL ENERGY. [213]PON EVERY EIGHT 
  59. 108 [131]"LANDINGS, YOU ARE AWARDED AN EXTRA 60 
  60. 110 DATA"SECONDS OF BONUS TIME (AND GO UP A 
  61. 112 [131]"LEVEL IN DIFFICULTY). (null)HOULD TIME RUN 
  62. 114 DATA"OUT, HOWEVER, YOU WILL LOSE A LIFE.
  63. 116 [131]"
  64. 118 DATA" [212]HE SCORING OF THE GAME IS FOLLOWS: 
  65. 120 [131]"50 POINTS FOR EACH ENEMY DESTROYED, 40 
  66. 122 DATA"POINTS FOR EACH TARG LANDING, PLUS AN 
  67. 124 [131]"ADDITIONAL 10 POINTS TO EACH OF THE 
  68. 126 DATA"ABOVE FOR EVERY LEVEL YOU GO UP. 10 
  69. 128 [131]"POINTS ARE ALSO REWARDED FOR EVERY 
  70. 130 DATA"SECOND LEFT OVER UPON ENTERING THE NEXT
  71. 132 [131]"LEVEL.
  72. 134 DATA"
  73. 136 [131]" (null)OU LEAD A SQUADRON OF FOUR BIRDS INTO
  74. 138 DATA"BATTLE. [198]LIGHT IS ACHIEVED BY 
  75. 140 [131]"SUCCESSIVE PRESSINGS OF THE FIRE BUTTON
  76. 142 DATA"WHILE POINTING THE BIRD IN EITHER THE 
  77. 144 [131]"LEFT OR RIGHT DIRECTION. ((null)HIS IS NOT 
  78. 146 DATA"AS EASY AS IT SOUNDS, [194]ECAUSE YOU WILL 
  79. 148 [131]"BE REQUIRED TO FIGHT THE FORCE OF 
  80. 150 DATA"GRAVITY AT THE SAME TIME).
  81. 152 [131]"
  82. 154 DATA" [208]LUG THE JOYSTICK IN PORT TWO. [198]1 KEY 
  83. 156 [131]"WILL RESET THE GAME.
  84. 158 DATA"
  85. 160 [131]" CHR$OOD LUCK!! (null)ONG LIVE THE ASC(null)ATN(null) (null)EAGUE!
  86. 162 DATA"
  87. 164 [131]"
  88. 166 DATA"         [197]ND OF [198][204][193][208] [201]NSTRUCTIONS
  89. 168 [131]"CMD
  90. 399 END
  91. 420 S=54272:FORI=STOS+23:POKEI,0:NEXT:POKES+24,15
  92. 430 A=832:FORI=ATOA+28:READJ:POKEI,J:NEXT
  93. 470 POKE53280,14:POKE53281,15:PRINTCHR$(142)"[147][150]";
  94. 480 :
  95. 490 PRINTTAB(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  96. 500 [153][163]5)"(null)                            (null)
  97. 510 PRINTTAB(5)"[221]   [165] [146][183][208]   [146]     [146][183][208]   [146][183][208]    [146]  [221]"
  98. 520 PRINTTAB(5)"[221]   [165] [146][175]    [146]     [146][175][186]   [146][175][186]    [146]  [221]"
  99. 530 PRINTTAB(5)"[221]   [165] [146]     [146][175][186]   [146] [167]   [146]    [183][183][146]  [221]"
  100. 540 PRINTTAB(5)"[221]                            [221]
  101. 550 [153][163]5)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  102. 560 FORD=1TO400:NEXT:GOSUB800
  103. 570 A$="[158][175][162][154][163][163][145][157][157] [188][145][157][157][188][146][150][175]"
  104. 580 B$="[158][175][162][154][162][162][150][210][157][157][157][154] [172][157][157][172]"
  105. 590 SYSA,5,5:PRINTA$:SYSA,30,5:PRINTA$:SYSA,5,20:PRINTA$:SYSA,30,20:PRINTA$
  106. 600 FORD=1TO1400:NEXT
  107. 610 FORT=1TO6:SYSA,5,5:PRINTA$:FORD=1TO300:NEXT:SYSA,6,4:PRINT"  "
  108. 620 SYSA,5,5:PRINTB$:FORD=1TO200:NEXT
  109. 630 SYSA,6,6:PRINT"   ":SYSA,6,7:PRINT"   ":NEXT:SYSA,5,5:PRINTA$
  110. 640 :
  111. 650 FORT=1TO6:SYSA,30,5:PRINTA$:FORD=1TO300:NEXT:SYSA,31,4:PRINT"  "
  112. 660 SYSA,30,5:PRINTB$:FORD=1TO200:NEXT
  113. 670 SYSA,31,6:PRINT"   ":SYSA,31,7:PRINT"   ":NEXT:SYSA,30,5:PRINTA$
  114. 680 :
  115. 690 FORT=1TO6:SYSA,5,20:PRINTA$:FORD=1TO300:NEXT:SYSA,6,19:PRINT"  "
  116. 700 SYSA,5,20:PRINTB$:FORD=1TO200:NEXT
  117. 710 SYSA,6,21:PRINT"   ":SYSA,6,22:PRINT"   ":NEXT:SYSA,5,20:PRINTA$
  118. 720 FORT=1TO6:SYSA,30,20:PRINTA$:FORD=1TO300:NEXT:SYSA,31,19:PRINT"  "
  119. 730 SYSA,30,20:PRINTB$:FORD=1TO200:NEXT
  120. 740 SYSA,31,21:PRINT"   ":SYSA,31,22:PRINT"   ":NEXT:SYSA,30,20:PRINTA$
  121. 750 FORD=1TO2000:NEXT
  122. 760 PRINTTAB(9)"[152].":FORD=1TO100:NEXT:PRINTTAB(9)"[145] "
  123. 770 PRINTTAB(10)".":FORD=1TO100:NEXT:PRINTTAB(10)"[145] "
  124. 780 PRINTTAB(11)",":FORD=1TO100:NEXT:PRINTTAB(11)"[145] "
  125. 790 FORD=1TO1000:NEXT:GOSUB800:RETURN
  126. 800 POKES+5,16:POKES+6,9
  127. 820 FORI=3TO1STEP-1:FORD=1TO60:NEXT
  128. 830 POKES,I:POKES+1,I*10:POKES+4,17:FORJ=1TO20:NEXT:POKES+4,16
  129. 840 FORJ=1TO900:NEXT:NEXT:RETURN
  130.